Dim filter_text As String

Private Sub cmdFilter_Click(ByVal sender As System.Object,
            ByVal e As System.EventArgs) Handles cmdFilter.Click
        AdvDBAdd1.TableName = "Select * from Authors"
        AdvDBAdd1.DisplayField = 1
        AdvDBAdd1.cboAuthorsText = ""
        AdvDBAdd1.adbRefresh()
        AdvDBAdd1.Visible = True
End Sub

Private Sub cmdQuit_Click(ByVal sender As System.Object,
            ByVal e As System.EventArgs) Handles cmdQuit.Click
    Me.Close()
End Sub

Private Sub AdvDBAdd1_cmdReturnClick() Handles AdvDBAdd1.cmdReturnClick
    AdvDBAdd1.Visible = False
    filter_text = AdvDBAdd1.cboAuthorsText
    If filter_text = "" Then
        lblAuthor.Text = "None Selected"
    Else
        lblAuthor.Text = filter_text
    End If
End Sub
